home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / DispMod.lha / DispMod / source / Glue.asm < prev    next >
Encoding:
Assembly Source File  |  1990-03-05  |  1.1 KB  |  35 lines
  1. * This routine may be added to your rexxglue.asm
  2. * file that you received with your Arexx distribution disk.
  3. * For those that cannot, for one reason or another,
  4. * assemble a new rexxglue.o, a modified one has been
  5. * provided.
  6.  
  7.  
  8.         ; structure = StcToken( stringptr, bufferptr )
  9.  
  10.         ;buffer ;struct Token = {
  11.                 ;char *Current
  12.                 ;char *NextToken
  13.                 ;int  Length
  14.                 ;char Quote
  15.                 ;}
  16.  
  17.  
  18.         XDEF _StcToken
  19. _StcToken
  20.         move.l  4(sp),a0                ;get stringptr
  21.         move.l   a6,-(sp)               ;save current lib pointer
  22.         movea.l  _RexxSysBase,a6        ;point to rexxlib
  23.         jsr     _LVOStcToken(a6)        ;do it
  24.         move.l  12(sp),a6               ;get buffer pointer
  25.  
  26.         move.l  a1,(a6)         ;fill in structure
  27.         move.l  a0,4(a6)
  28.         move.l  d1,8(a6)
  29.         move.b  d0,12(a6)
  30.         move.l  (sp)+,a6                ;restore lib pointer
  31.         move.l  d1,d0           ;return length of token
  32.         rts                             ;done (I hope)
  33.  
  34.          END
  35.